perm filename LINEN[RST,LCS] blob
sn#210647 filedate 1976-04-08 generic text, type T, neo UTF8
00100 VARIABLE X,Y; <FILE NAME=LINEN
00200 COMPILE;
00300 INSTRUMENT TRY1;
00400 LINEN(P4,P6,P7,P8,P9,X); <AMP, RISE, DECAY, TOTAL, FUNC, VAR.
00500 COSCIL(U1,MAG*P3,P5); <YOU MUST USE A COSCIL HERE!
00600 OUTA=OUTA+U2;
00700 END;
00800 FINISH;
00900 ARRAY F3,F2(512);
01000 SEG(F2);0,0 1,8 .6 25 .7,50 0,75 0,100;
01025 SYNTH(F1);1 1 2 .3 999;
01037 SEG(F3);-1 1 1 100;
01050 X=0;
01100
01200 COMPILE;
01300 INSTRUMENT TRY2;
01400 LINEN(P4,P6,P7,P8,P9,Y); <AMP, RISE, DECAY, TOTAL, FUNC, VAR.
01500 COSCIL(U1,MAG*P3,P5); <YOU MUST USE A COSCIL HERE!
01600 OUTA=OUTA+U2;
01700 END;
01800 FINISH;
01900 PLAY;TRY1 0 .3 C 2000 F1 .05 .09 2.2 F2;
02000 TRY1 .3 .3 E;
02100 TRY1 .6 .3 G; TRY1 .9 .3 FS; TRY1 1.2 1 A;
02200 TRY1 2.2 .3 DS 2000 F1 .05 .1 .3; X=0; FINISH;